home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
pcboard
/
tabppe66.zip
/
TABS.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-04-11
|
30KB
|
1,254 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
String STRING003
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String STRING018
String STRING019
String STRING020
String STRING021
String STRING022
String STRING023
String STRING024
String TSTRING025(3)
String STRING026
String STRING027
String STRING028
String STRING029
String STRING030
String STRING031
String STRING032
String STRING033
String STRING034
String STRING035
String STRING036
String STRING037
String STRING038
String STRING039
String STRING040
String STRING041
String STRING042
String STRING043
String STRING044
String STRING045
String STRING046
String STRING047
String STRING048
String STRING049
String STRING050
String STRING051
String STRING052
String STRING053
String STRING054
String STRING055
String STRING056
String STRING057
String STRING058
String STRING059
String STRING060
String STRING061
String TSTRING062(18)
String STRING063
String STRING064
String STRING065
String STRING066
String STRING067
String STRING068
String STRING069
String STRING070
String STRING071
String STRING072
String STRING073
String STRING074
String STRING075
String STRING076
String TSTRING077(10)
String STRING078
String TSTRING079(5)
String STRING080
String STRING081
String STRING082
String STRING083
String STRING084
String STRING085
(null) 001
(null) 002
;------------------------------------------------------------------------------
STRING019 = PPEPath()
TSTRING025(0) = "@X0F/"
TSTRING025(1) = "@X0E-"
TSTRING025(2) = "@X0B\"
TSTRING025(3) = "@X09│"
STRING069 = Chr(13)
STRING020 = " 0123456789.,:abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
STRING033 = ""
INTEGER003 = ""
STRING037 = "6.6"
STRING045 = "1-900-622-8227"
STRING046 = "1-900-622-5225"
STRING048 = STRING019 + "TABS" + String(PcbNode()) + ".LOG"
STRING058 = STRING019 + "SYSOP" + String(PcbNode()) + ".TXT"
STRING059 = STRING019 + "RECPT" + String(PcbNode()) + ".TXT"
If (Exist(STRING059)) Delete STRING059
STRING060 = STRING019 + "WARN" + String(PcbNode()) + ".TXT"
STRING061 = STRING019 + "FAILED" + String(PcbNode()) + ".TXT"
STRING051 = ""
STRING052 = ""
INTEGER005 = ""
STRING053 = ""
TSTRING077(1) = ""
TSTRING077(2) = ""
TSTRING077(3) = ""
TSTRING077(4) = ""
TSTRING077(5) = ""
STRING082 = ""
STRING083 = ""
STRING081 = ""
STRING034 = ""
STRING026 = GetToken()
While (STRING026 <> "") Do
STRING034 = Mid(Upper(STRING026), 1, 12)
STRING026 = GetToken()
EndWhile
STRING026 = ""
GetUser
FAppend 2, STRING048, 1, 3
FPutLn 2, "**** ", U_Name(), " Entered PPE on ", String(Date()), " at ", String(Time()), " ****"
FClose 2
FOpen 1, STRING019 + STRING034, 0, 3
FGet 1, STRING052
FGet 1, STRING051
If (Len(STRING051) <= 1) STRING053 = "NO"
FGet 1, STRING036
STRING036 = Upper(STRING036)
FGet 1, STRING043
FGet 1, STRING041
STRING041 = Upper(STRING041)
FGet 1, STRING044
FGet 1, STRING035
If (Len(STRING035) > 1) STRING038 = "NO"
FGet 1, STRING072
If (Len(STRING072) > 1) STRING057 = "YES"
STRING063 = STRING019 + STRING072
FClose 1
For INTEGER006 = 1 To 30
STRING054 = Mid(STRING052, INTEGER006, 1)
INTEGER004 = Asc(STRING054)
INTEGER005 = INTEGER005 + INTEGER004
Next
INTEGER005 = INTEGER005 * "804"
If (STRING051 == INTEGER005) STRING053 = "YES"
If (STRING053 <> "YES") Goto LABEL003
FOpen 1, STRING019 + "TCAN", 2, 0
STRING082 = U_Name()
SearchInit STRING082, 0
:LABEL001
If (Ferr(1)) Goto LABEL002
FGet 1, STRING081
SearchFind STRING081, STRING083
If (STRING083) Then
Cls
Newlines 10
PrintLn "@BEEP@@BEEP@@BEEP@@X0CI'm sorry, the SysOp of this system has locked you out of this program !"
Newlines 10
FAppend 2, STRING048, 1, 3
FPutLn 2, "******* Caller name is listed in TABS trashcan file ! *******"
FClose 2
Wait
Else
Goto LABEL001
:LABEL002
SearchStop
FClose 1
:LABEL003
STRING049 = ""
If (STRING036 == "NO") Then
STRING042 = "25"
STRING027 = STRING044
STRING047 = STRING046
STRING049 = "NO"
Else
If (STRING041 == "NO") Then
STRING042 = "10"
STRING027 = STRING043
STRING047 = STRING045
STRING049 = "NO"
Else
STRING049 = "YES"
:LABEL004
If (STRING049 == "NO") Goto LABEL011
STRING042 = ""
Cls
If (STRING038 == "NO") Then
DispFile STRING019 + STRING035, 1 + 2 + 4
Else
PrintLn "@X38┌─────────────────────────────────────────────────────────────────────────────@X3B┐@X07"
PrintLn "@X38│ @X3FDate: @SYSDATE@ @X3E« TABS PCBoard Version ", STRING037, " » @X3FTime: @SYSTIME@ @X3B│@X07"
PrintLn "@X38└@X3B─────────────────────────────────────────────────────────────────────────────┘@X07"
PrintLn "@X10┌─────────────────────────────────────────────────────────────────────────────@X19┐@X07"
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10│ @X1FTelephone Access Billing Processor @X1B(TABS-PPE) @X19 │@X07"
PrintLn "@X10│ @X1E@X1CWritten By Ray Sulich @X1E(Straight Board BBS 804-468-6454/6525) @X19 │@X07"
PrintLn "@X10│ @X1BRIME ->1475 FIDO 1:275/25 @X19 │@X07"
PrintLn "@X10│ @X19 │@X07"
PrintLn "@X10│ @X1ETelephone Access Billing System (TABS) allows you to charge a subscription @X19│@X07"
PrintLn "@X10│ @X1E to this BBS by calling a (900) telephone number. @X19│@X07"
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10│ @X1EThis Bulletin Board Service offers both a $10 and a $25 subscription rate. @X19│@X07"
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10│ @X1B(@X1E1@X1B)@X1F Obtain information about $10 Service @X19│@X07"
PrintLn "@X10│ @X1B(@X1E2@X1B)@X1F Obtain information about $25 Service @X19│@X07"
PrintLn "@X10│ @X1B(@X1E3@X1B)@X1F Redeem $10 Subscription ID @X19│@X07"
PrintLn "@X10│ @X1B(@X1E4@X1B)@X1F Redeem $25 Subscription ID @X19│@X07"
If (Upper(STRING057) == "YES") Then
PrintLn "@X10│ @X1B(@X1ED@X1B) @X1Fownload TABS information @X19│@X07"
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10└@X19─────────────────────────────────────────────────────────────────────────────┘@X07"
Else
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10└@X19─────────────────────────────────────────────────────────────────────────────┘@X07"
Endif
Endif
STRING018 = ""
STRING014 = ""
If (Upper(STRING057) == "YES") Then
InputStr "@X0B(@X0E1@X0B)@X0F, @X0B(@X0E2@X0B)@X0F, @X0B(@X0E3@X0B)@X0F, @X0B(@X0E4@X0B)@X0F, @X0B(@X0ED@X0B)@X0F, @X0B(@X0EQ@X0B)@X0Fuit", STRING018, 14, 1, "Qq1234Dd", 32 + 2 + 4 + 128 + 8
Else
InputStr "@X0B(@X0E1@X0B)@X0F, @X0B(@X0E2@X0B)@X0F, @X0B(@X0E3@X0B)@X0F, @X0B(@X0E4@X0B)@X0F, @X0B(@X0EQ@X0B)@X0Fuit", STRING018, 14, 1, "Qq1234", 32 + 2 + 4 + 128 + 8
Endif
If (STRING018 == "Q") Goto LABEL063
If (STRING018 == "1") Goto LABEL006
If (STRING018 == "2") Goto LABEL007
If (STRING018 == "3") Then
STRING014 = "YES"
Else
If (STRING018 == "4") Then
STRING014 = "YES"
Goto LABEL007
Endif
If (STRING018 == "D") Then
If (Exist(STRING063)) Then
Download STRING063
Goto LABEL005
Endif
Cls
Newlines 2
PrintLn "@X0FERROR: @X0C", STRING063, "@X0F could not be found... Please inform your Sysop !"
Newlines 2
Wait
Endif
:LABEL005
Goto LABEL004
Endif
Endif
:LABEL006
STRING042 = "10"
STRING027 = STRING043
Goto LABEL008
Endif
:LABEL007
STRING042 = "25"
STRING027 = STRING044
:LABEL008
If (Len(STRING027) < 1) STRING027 = "TABS.CFG"
FOpen 1, STRING019 + STRING027, 0, 3
FGet 1, STRING004
FGet 1, STRING050
STRING050 = Upper(STRING050)
FGet 1, STRING056
If (Len(STRING056) > 1) STRING055 = "YES"
FGet 1, STRING072
If (Len(STRING072) > 1) STRING057 = "YES"
STRING063 = STRING019 + STRING072
FGet 1, STRING075
If (Len(STRING075) > 1) STRING074 = "YES"
FGet 1, STRING065
If (Len(STRING065) > 1) STRING064 = "YES"
FGet 1, STRING066
FGet 1, STRING068
FGet 1, STRING067
FGet 1, STRING078
Tokenize STRING078
If (TokCount() == 10) GetToken TSTRING077(10)
If (TokCount() == 9) GetToken TSTRING077(9)
If (TokCount() == 8) GetToken TSTRING077(8)
If (TokCount() == 7) GetToken TSTRING077(7)
If (TokCount() == 6) GetToken TSTRING077(6)
If (TokCount() == 5) GetToken TSTRING077(5)
If (TokCount() == 4) GetToken TSTRING077(4)
If (TokCount() == 3) GetToken TSTRING077(3)
If (TokCount() == 2) GetToken TSTRING077(2)
If (TokCount() == 1) GetToken TSTRING077(1)
FGet 1, STRING005
FGet 1, INTEGER008
FGet 1, STRING009
FGet 1, INTEGER009
If (INTEGER009 <> 99999) Then
If (Psa(7) == 0) Then
Cls
Newlines 5
PrintLn "@X0C ERROR.... @X0EAccounting PSA not installed, Please inform your SysOp !!!"
Newlines 5
Delay 50
End
Endif
INTEGER011 = INTEGER009 + PCBAccStat(4)
Endif
FGet 1, STRING076
FGet 1, STRING073
STRING073 = Upper(STRING073)
FGet 1, STRING010
FGet 1, STRING011
FGet 1, INTEGER015
FGet 1, INTEGER007
If (INTEGER007 <> 99999) Then
If (Psa(7) == 0) Then
Cls
Newlines 5
PrintLn "@X0C ERROR.... @X0EAccounting PSA not installed, Please inform your SysOp !!!"
Newlines 5
Delay 50
End
Endif
Endif
FGet 1, INTEGER010
FGet 1, STRING012
STRING012 = Upper(STRING012)
FGet 1, STRING015
If (Len(STRING015) < 1) STRING015 = "NONE"
Tokenize STRING015
STRING080 = TokCount()
If (TokCount() == 5) GetToken TSTRING079(5)
If (TokCount() == 4) GetToken TSTRING079(4)
If (TokCount() == 3) GetToken TSTRING079(3)
If (TokCount() == 2) GetToken TSTRING079(2)
If (TokCount() == 1) GetToken TSTRING079(1)
FGet 1, STRING031
FGet 1, STRING032
FGet 1, STRING016
If (Len(STRING016) < 1) STRING016 = "NONE"
FGet 1, STRING003
FGet 1, STRING017
STRING017 = Upper(STRING017)
FGet 1, STRING040
FGet 1, STRING028
STRING028 = Upper(STRING028)
If (STRING028 == "YES") Then
STRING030 = "FALSE"
Goto LABEL009
Else
STRING030 = "TRUE"
Endif
Goto LABEL010
:LABEL009
FGet 1, STRING029
FGet 1, STRING070
FGet 1, STRING071
:LABEL010
FClose 1
If (STRING014 == "YES") Goto LABEL016
:LABEL011
STRING018 = "Y"
Cls
DispFile STRING019 + STRING040, 1 + 2 + 4
InputStr "@X0B(@X0EY@X0B) @X0FContinue, @X0B(@X0EN@X0B) @X0FReturn to BBS @X0B(@X0E1@X0B) @X0FRedeem $" + STRING042 + " Sid", STRING018, 14, 1, "YyNn1", 32 + 2 + 4 + 128 + 8
If (STRING018 == YesChar()) Goto LABEL012
If (STRING018 == NoChar()) Goto LABEL063
Select Case (STRING018)
Case "1"
STRING014 = "YES"
Case "2"
STRING014 = "YES"
Case Else
Goto LABEL011
:LABEL012
If (CurSec() == TSTRING077(1)) Goto LABEL013
If (CurSec() == TSTRING077(2)) Goto LABEL013
If (CurSec() == TSTRING077(3)) Goto LABEL013
If (CurSec() == TSTRING077(4)) Goto LABEL013
If (CurSec() == TSTRING077(5)) Goto LABEL013
Goto LABEL014
:LABEL013
Cls
STRING021 = ""
STRING022 = ""
If (STRING030 == "FALSE") Then
Cls
DispFile STRING019 + STRING029, 1 + 2 + 4
Else
PrintLn "@X38┌─────────────────────────────────────────────────────────────────────────────@X3B┐@X07"
PrintLn "@X38│ @X3FDate: @SYSDATE@ @X3E« Contribution Entitlements » @X3FTime: @SYSTIME@ @X3B│@X07"
PrintLn "@X38└@X3B─────────────────────────────────────────────────────────────────────────────┘@X07"
Newlines 2
PrintLn "@X07 @X0FAn initial $", STRING042, " Contribution would entitle you to:@X07"
PrintLn "@X07"
PrintLn "@X07 @X0FAccess Level @X0E", STRING005, "@X07"
PrintLn "@X07 @X0E", STRING010, " @X0FMinutes per day or Session@X07"
PrintLn "@X07 @X0E", STRING011, " @X0F Download Bytes per day@X07"
If (STRING073 == "NO") PrintLn " @X0F@X0FAdd @X0E", INTEGER008, " @X0F Days to your subscription expiration date@X07"
If (INTEGER009 <> 99999) Then
PrintLn "@X07 @X0FAdd @X0E", INTEGER009, "@X0F additional Account Credits@X07"
PrintLn "@X07 @X0FYour credit account balance would be: @X0E", INTEGER011, "@X07"
Endif
PrintLn "@X07"
Endif
STRING018 = "C"
InputStr "@X0B(@X0EC@X0B)@X0Fontinue, @X0B(@X0ER@X0B)@X0Feturn to Intro. @X0B(@X0EQ@X0B)@X0Fuit", STRING018, 14, 1, "QqRrCc", 32 + 2 + 4 + 128 + 8
If (STRING018 == "Q") Goto LABEL063
If (STRING018 == "R") Goto LABEL004
If (STRING018 == "C") Goto LABEL016
Goto LABEL012
:LABEL014
If (STRING030 == "FALSE") Then
Cls
DispFile STRING019 + STRING070, 1 + 2 + 4
Else
If ((INTEGER007 == 99999) && (INTEGER015 == 0)) Then
Cls
PrintLn "@X38┌─────────────────────────────────────────────────────────────────────────────@X3B┐@X07"
PrintLn "@X38│ @X3FDate: @SYSDATE@ @X3E« Contribution Entitlements » @X3FTime: @SYSTIME@ @X3B│@X07"
PrintLn "@X38└@X3B─────────────────────────────────────────────────────────────────────────────┘@X07"
Newlines 2
PrintLn " @X0FA Contribution would not yield more entitlements@X07"
PrintLn ""
PrintLn " @X0FDue to your current security level, we do not offer any other @X07"
PrintLn " @X0Fentitlements utilizing the TABS program. If you want a higher @X07"
PrintLn " @X0Faccess level, please contact the @X0ESysOp @X0Fof this BBS for more @X07"
PrintLn " @X0Finformation.@X07"
PrintLn ""
Goto LABEL015
Else
Cls
PrintLn "@X38┌─────────────────────────────────────────────────────────────────────────────@X3B┐@X07"
PrintLn "@X38│ @X3FDate: @SYSDATE@ @X3E« Contribution Entitlements » @X3FTime: @SYSTIME@ @X3B│@X07"
PrintLn "@X38└@X3B─────────────────────────────────────────────────────────────────────────────┘@X07"
Newlines 2
PrintLn " @X0FA Contribution would@X07"
PrintLn ""
If (INTEGER015 <> 0) PrintLn " @X0FAdd @X0E", INTEGER015, " @X0Fday(s) to your account expiration date."
If (INTEGER007 <> 99999) Then
PrintLn " @X0FAdd @X0E", INTEGER007, " @X0Fcredits to your current credit balance of @X0E", PCBAccStat(4), "@X07"
PrintLn " @X0Fto allow a credit account balance of @X0E", PCBAccStat(4) + INTEGER007, " @X0Fcredits.@X07"
Endif
Endif
Newlines 5
Goto LABEL015
Endif
:LABEL015
STRING018 = "C"
InputStr "@X0B(@X0ER@X0B)@X0Feturn to Intro., @X0B(@X0EC@X0B)@X0Fontinue, @X0B(@X0EQ@X0B)@X0Fuit", STRING018, 14, 1, "QqRrCc", 32 + 2 + 4 + 128 + 8
If (STRING018 == "Q") Goto LABEL063
If (STRING018 == "R") Goto LABEL004
If (STRING018 == "C") Goto LABEL016
Goto LABEL014
End Select
:LABEL016
Cls
If (STRING030 == "FALSE") Then
DispFile STRING019 + STRING071, 1 + 2 + 4
Else
PrintLn "@X38┌─────────────────────────────────────────────────────────────────────────────@X3B┐@X07"
PrintLn "@X38│ @X3FDate: @SYSDATE@ @X3E« Telephone Access Billing Menu » @X3FTime: @SYSTIME@ @X3B│@X07"
PrintLn "@X38└@X3B─────────────────────────────────────────────────────────────────────────────┘@X07"
PrintLn "@X10┌─────────────────────────────────────────────────────────────────────────────@X19┐@X07"
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10│ @X1FPlease select one of the options below: @X19│@X07"
PrintLn "@X10│ @X19│@X07"
If (U_Name() == Upper(STRING004)) Then
PrintLn "@X10│ @X1B(@X1EI@X1B)@X1F nquire about the # of SIDS in the $", STRING042, " SID List @X19│@X07"
PrintLn "@X10│ @X1B(@X1EA@X1B)@X1F dd New SID's to the $", STRING042, " SID List @X19│@X07"
PrintLn "@X10│ @X1B(@X1EE@X1B)@X1F nter your Subscription ID # @X19│@X07"
PrintLn "@X10│ @X1B(@X1EQ@X1B)@X1F uit Return to the BBS @X19│@X07"
If (Upper(STRING057) == "YES") Then
PrintLn "@X10│ @X1B(@X1ED@X1B)@X1F ownload TABS information @X19│@X07"
Goto LABEL017
Endif
:LABEL017
PrintLn "@X10│ @X1B(@X1ER@X1B)@X1F eturn to Introduction Screen @X19 │@X07"
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10│ @X1CNOTE: @X1EIf this is not the SID file you wish to process. Return to @X19│@X07"
PrintLn "@X10│ @X1Ethe Introduction screen and select the correct service to @X19│@X07"
PrintLn "@X10│ @X1E process. @X19│@X07"
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10└@X19─────────────────────────────────────────────────────────────────────────────┘@X07"
Endif
STRING018 = ""
If (U_Name() <> Upper(STRING004)) Goto LABEL022
If (Upper(STRING057) == "YES") Then
InputStr "@X0B(@X0EQ@X0B)@X0Fuit, @X0B(@X0ER@X0B)@X0Feturn to Intro, @X0B(@X0EE@X0B)@X0Fnter ID #, @X0B(@X0EI@X0B)@X0Fnquire, @X0B(@X0EA@X0B)@X0Fdd, @X0B(@X0ED@X0B)@X0Fownload", STRING018, 14, 1, "QqRrEeIiAadD", 32 + 2 + 4 + 8
Goto LABEL018
Endif
InputStr "@X0B(@X0EQ@X0B)@X0Fuit, @X0B(@X0ER@X0B)@X0Feturn to Intro, @X0B(@X0EE@X0B)@X0Fnter ID #, @X0B(@X0EI@X0B)@X0Fnquire, @X0B(@X0EA@X0B)@X0Fdd", STRING018, 14, 1, "QqRrEeIiAa", 32 + 2 + 4 + 8
:LABEL018
If (STRING018 == "I") Goto LABEL024
If (STRING018 == "A") Goto LABEL028
If (STRING018 == "Q") Goto LABEL063
If (STRING018 == "R") Goto LABEL004
If (STRING018 == "E") Goto LABEL039
If (STRING018 == "D") Then
If (Exist(STRING063)) Then
Download STRING063
Goto LABEL019
Endif
Cls
Newlines 2
PrintLn "@X0F@X8CERROR !!!@X0F: @X0E", STRING063, "@X0F could not be found... Please inform your Sysop !"
Newlines 2
Wait
Endif
:LABEL019
Goto LABEL016
Goto LABEL020
Endif
:LABEL020
PrintLn "@X10│ @X1B(@X1EE@X1B) @X1Fnter your Subscription ID # @X19│@X07"
PrintLn "@X10│ @X1B(@X1EQ@X1B) @X1Fuit Return to the BBS @X19│@X07"
If (Upper(STRING057) == "YES") Then
PrintLn "@X10│ @X1B(@X1ED@X1B)@X1F ownload TABS information @X19│@X07"
Goto LABEL021
Endif
:LABEL021
PrintLn "@X10│ @X1B(@X1ER@X1B) @X1Feturn to Introduction Screen @X19│@X07"
PrintLn "@X10│ @X19│@X07"
PrintLn "@X10└@X19─────────────────────────────────────────────────────────────────────────────┘@X07"
:LABEL022
STRING018 = ""
PrintLn ""
If (Upper(STRING057) == "YES") Then
InputStr "@X0B(@X0EQ@X0B)@X0Fuit, @X0B(@X0ER@X0B)@X0Feturn to Intro, @X0B(@X0ED@X0B)@X0Fownload, @X0B(@X0EE@X0B)@X0Fnter ID #", STRING018, 14, 1, "QqEeRrDd", 32 + 2 + 4 + 8
Else
InputStr "@X0B(@X0EQ@X0B)@X0Fuit, @X0B(@X0ER@X0B)@X0Feturn to Intro, @X0B(@X0EE@X0B)@X0Fnter ID #", STRING018, 14, 1, "QqEeRr", 32 + 2 + 4 + 8
Endif
If (STRING018 == "Q") Goto LABEL063
If (STRING018 == "R") Goto LABEL004
If (STRING018 == "E") Goto LABEL039
If (STRING018 == "D") Then
If (Exist(STRING063)) Then
Download STRING063
Goto LABEL023
Endif
Cls
Newlines 2
PrintLn "@X8CERROR !!!@X0F: @X0E", STRING063, "@X0F could not be found... Please inform your Sysop !"
Newlines 2
Wait
Endif
:LABEL023
Goto LABEL016
:LABEL024
INTEGER003 = ""
Print "Standby, while I process your request... "
FOpen 1, STRING019 + STRING003, 0, 3
If (Ferr(1)) Then
STRING021 = "14"
FClose 1
FClose 2
Else
Frewind 1
INTEGER012 = GetX()
INTEGER013 = GetY()
:LABEL025
If (Ferr(1)) Goto LABEL027
FGet 1, STRING006
AnsiPos INTEGER012, INTEGER013
Print TSTRING025(INTEGER014 % 4)
Inc INTEGER014
If (Len(STRING006) < 7) Then
Goto LABEL026
ElseIf (Len(STRING006) > 8) Then
Goto LABEL026
Else
Inc INTEGER003
Endif
:LABEL026
Goto LABEL025
:LABEL027
FClose 1
Cls
Newlines 2
PrintLn "@X0F There are currently @X0E", INTEGER003, "@X0F SIDS available for usage in the $@X0C", STRING042, " @X0FSID list."
Newlines 2
Wait
Goto LABEL016
:LABEL028
Cls
STRING018 = ""
Newlines 2
PrintLn "@X0FYour new @X0BSIDS@X0F must reside in the same directory as the @X0CTABS @X0FPPE."
PrintLn "@X0EENSURE @X0Fthat you are adding $@X0C", STRING042, " @X0FSIDS to this ID list."
PrintLn "@X0FThe file that you about to add subscription ID's to is:"
PrintLn ""
PrintLn "@X0E ", STRING019 + STRING003, " @X0C!!!!"
PrintLn ""
InputStr "@X0FIs this the file you wish to add SIDS to? @X0B(@X0EY@X0B)@X0Fes, @X0B(@X0EN@X0B)@X0Fo ", STRING018, 14, 1, "YyNn", 32 + 2 + 4 + 128 + 8
If (STRING018 == YesChar()) Goto LABEL029
If (STRING018 == NoChar()) Goto LABEL016
Goto LABEL028
:LABEL029
InputStr "@X0FEnter the filename of the $@X0E" + STRING042 + " @X0FSID file to add ", STRING023, 15, 12, Mask_File(), 8 + 32 + 2 + 4 + 128
Newlines 2
Print "@X0FHold on while we add the numbers to your $@X0E", STRING042, " @X0FSID listing "
Delete STRING019 + "WORK.$$$"
FCreate 1, STRING019 + "WORK.$$$", 2, 3
If (Ferr(1)) Then
STRING021 = "12"
FClose 1
Else
FOpen 2, STRING019 + STRING003, 2, 3
If (Ferr(2)) Then
STRING021 = "14"
FClose 2
FClose 1
Else
INTEGER012 = GetX()
INTEGER013 = GetY()
:LABEL030
If (Ferr(2)) Goto LABEL033
FGet 2, STRING024
AnsiPos INTEGER012, INTEGER013
Print TSTRING025(INTEGER014 % 4)
Inc INTEGER014
If (Len(STRING024) >= 7) Then
Goto LABEL031
Else
Goto LABEL032
Endif
:LABEL031
FPutLn 1, STRING024
:LABEL032
Goto LABEL030
:LABEL033
FOpen 3, STRING019 + STRING023, 0, 3
If (Ferr(3)) Then
STRING021 = "13"
FClose 1
FClose 2
FClose 3
Else
:LABEL034
If (Ferr(3)) Goto LABEL038
FGet 3, STRING024
AnsiPos INTEGER012, INTEGER013
Print TSTRING025(INTEGER014 % 4)
Inc INTEGER014
If (Len(STRING024) > 6) Then
Goto LABEL035
Else
Goto LABEL037
Endif
:LABEL035
If (Len(STRING024) < 8) Then
Goto LABEL036
Else
Goto LABEL037
Endif
:LABEL036
FPutLn 1, STRING024
:LABEL037
Goto LABEL034
:LABEL038
FClose 1
FClose 2
FClose 3
Delete STRING019 + STRING003
Rename STRING019 + "WORK.$$$", STRING019 + STRING003
Cls
Newlines 2
PrintLn " Operation successfull !!!! "
Newlines 2
PrintLn " Please check that your ", 11, " @X0Fis intact. After you have done this"
PrintLn " You may delete @X0E", STRING019 + STRING003, "@X0F @X0CTABS-PPE @X0Fdoes not delete this file."
PrintLn " We recommend that you save it in case you lose your working copy of it in the"
PrintLn " future."
Newlines 4
Wait
Goto LABEL024
:LABEL039
STRING022 = ""
STRING021 = ""
PrintLn ""
InputStr "@X0B(@X0EQ@X0B)@X0Fuit, @X0FEnter your Subscription @X0E#@X0F", STRING022, 15, 7, "Qq0123456789", 32 + 2 + 4 + 8
If (STRING022 == "Q") Goto LABEL016
If (Len(STRING022) < 7) Goto LABEL055
If (Len(STRING022) > 8) Goto LABEL055
PrintLn ""
Print "@X0F Please standby while I validate your Subscription Number... "
FAppend 2, STRING048, 1, 3
FPutLn 2, " Entered SID# ", STRING022, " looking in $", STRING042, " list for a match."
FClose 2
FOpen 1, STRING019 + STRING003, 0, 3
If (Ferr(1)) Then
STRING021 = "14"
FClose 1
Else
FCreate 2, STRING019 + "WORK.$$$", 1, 3
If (Ferr(2)) Then
STRING021 = "12"
FClose 1
FClose 2
Else
Frewind 1
STRING021 = "11"
INTEGER012 = GetX()
INTEGER013 = GetY()
:LABEL040
If (Ferr(1)) Goto LABEL042
FGet 1, STRING006
AnsiPos INTEGER012, INTEGER013
Print TSTRING025(INTEGER014 % 4)
Inc INTEGER014
If (STRING022 == STRING006) Then
FPutLn 2, " *** SID ", STRING022, " was used ", String(Date()), " at ", String(Time()), " by ", U_Name(), " ***"
STRING021 = "10"
ElseIf (Len(STRING006) >= 7) Then
FPutLn 2, STRING006
If (Len(STRING006) == 7) Inc INTEGER003
Goto LABEL041
Endif
:LABEL041
Goto LABEL040
:LABEL042
FClose 1
FClose 2
FClose 3
Delete STRING019 + STRING003
Rename STRING019 + "WORK.$$$", STRING019 + STRING003
Endif
Endif
Endif
Endif
Endif
Endif
If (STRING021 == "14") Goto LABEL056
If (STRING021 == "13") Goto LABEL056
If (STRING021 == "12") Goto LABEL057
If (STRING021 == "11") Goto LABEL055
If (STRING021 == "10") Goto LABEL043
Goto LABEL057
:LABEL043
If (CurSec() == TSTRING077(1)) Goto LABEL044
If (CurSec() == TSTRING077(2)) Goto LABEL044
If (CurSec() == TSTRING077(3)) Goto LABEL044
If (CurSec() == TSTRING077(4)) Goto LABEL044
If (CurSec() == TSTRING077(5)) Goto LABEL044
Goto LABEL045
:LABEL044
If (STRING050 == "YES") U_ExpDate = Date()
If (U_ExpDate < Date()) U_ExpDate = Date()
U_Sec = STRING005
U_ExpDate = U_ExpDate + INTEGER008
U_ExpSec = STRING009
STRING039 = PCBAccStat(4)
If (INTEGER009 <> 99999) Account 16, INTEGER009
If (STRING076 <> 99999) Account 17, STRING076
If (STRING073 == "YES") U_ExpDate = 0 - 0 - 0
PutUser
Goto LABEL046
:LABEL045
If (INTEGER015 <> 0) U_ExpDate = U_ExpDate + INTEGER015
If (STRING012 == "YES") U_ExpDate = 0 - 0 - 0
STRING039 = PCBAccStat(4)
If (INTEGER007 <> 99999) Account 16, INTEGER007
If (INTEGER010 <> 99999) Account 17, INTEGER010
PutUser
:LABEL046
If (STRING017 == "NO") Then
Goto LABEL047
ElseIf (Psa(6) == 1) Then
U_Notes(0) = "Contribution Via TABS, SID # " + STRING022 + " "
U_Notes(1) = "ON: " + String(Date()) + " $" + STRING042 + " contribution."
PutUser
Endif
:LABEL047
FAppend 2, STRING048, 1, 3
FPutLn 2, " SID was accepted:"
FPutLn 2, " Access level: ", CurSec()
FPutLn 2, " Daily/Session Access Time : ", STRING010, " mins."
FPutLn 2, " Expiration Date : ", U_ExpDate
If (Psa(7) == 0) Goto LABEL048
FPutLn 2, " Account Credits : ", PCBAccStat(4)
FPutLn 2, " Previous Account Credits : ", STRING039
FPutLn 2, " At 0 Credit Security Level: ", Account(17)
FClose 2
:LABEL048
If (STRING015 == "NONE") Goto LABEL049
ConfFlag STRING015, 1 + 2 + 4
PutUser
:LABEL049
If (STRING016 == "NONE") Goto LABEL050
FCreate 1, STRING058, 1, 3
FPutLn 1, "@XON@"
FPutLn 1, "@X0FThis is just a message to let you know that:"
FPutLn 1, ""
FPutLn 1, "@X0E", U_Name(), "@X0F , donated $", STRING042, " to the BBS their account status is now:"
FPutLn 1, ""
FPutLn 1, " Access level : ", CurSec()
FPutLn 1, " Daily/Session Access Time : ", STRING010, " mins."
FPutLn 1, " Expiration Date : ", U_ExpDate
If (Psa(7) <> 0) Then
FPutLn 1, " Account Credits : ", PCBAccStat(4)
FPutLn 1, " Previous Account Credits : ", STRING039
FPutLn 1, " 0 Credit Security Level : ", Account(17)
FClose 1
Endif
FClose 1
Message STRING016, STRING004, "TABS-PPE", "Contribution", "R", 0, 0, 0, STRING058
Delete STRING058
:LABEL050
Cls
PrintLn ""
PrintLn "@X0EThank you @X0B", "", "@X0F, for your Contribution. Your account on this BBS has"
PrintLn "@X0Fbeen adjusted to reflect your generosity."
PrintLn ""
PrintLn "@X0FYour access level is :@X0E ", CurSec(), "@X0F"
PrintLn "@X0FAccess time per day/session is :@X0E ", STRING010, " @X0FMins."
If (U_ExpDate <> "00-00-00") PrintLn "@X0FYour account expiration date is :@X0E ", U_ExpDate, "@X0F"
If (Psa(7) == 0) Goto LABEL051
PrintLn "@X0FAccount Credits :@X0E ", PCBAccStat(4), "@X0F"
PrintLn "@X0FPrevious Account Credits :@X0E ", STRING039, "@X0F"
PrintLn "@X0FAt 0 Credit Security Level :@X0E ", Account(17), "@X0F"
:LABEL051
Newlines 2
If (Upper(STRING055) == "YES") Then
STRING018 = ""
InputStr "@X0FWould you like to download a receipt for this transaction @X0B(@X0EY@X0F/@X0EN@X0B)@X0F", STRING018, 14, 1, "yYnN", 256 + 16384
If (STRING018 == YesChar()) Then
FCreate 1, STRING059, 1, 3
FPutLn 1, "TABS-PPE, written by Ray Sulich"
FPutLn 1, ""
FClose 1
Append STRING019 + STRING056, STRING059
FAppend 1, STRING059, 1, 3
FPutLn 1, ""
FPutLn 1, "Receipt created for ", U_Name(), ""
FPutLn 1, ""
FPutLn 1, "Access level : ", CurSec(), ""
FPutLn 1, "Access time per day/session is : ", STRING010, ""
If (U_ExpDate == "00-00-00") Then
FPutLn 1, "Your account expiration date is : N/A"
Goto LABEL052
Endif
FPutLn 1, "Your account expiration date is : ", U_ExpDate, ""
:LABEL052
If (Psa(7) == 0) Goto LABEL053
FPutLn 1, "Account Credits : ", PCBAccStat(4)
FPutLn 1, "Previous Account Credits : ", STRING039
FPutLn 1, "AT 0 Credit Security Level : ", Account(17)
FPutLn 1, ""
:LABEL053
FPutLn 1, "Receipt generated on ", Date(), " for $", STRING042, " at ", STRING052
FClose 1
Download STRING059
Endif
Endif
If (STRING016 == "NONE") Goto LABEL063
If (INTEGER003 <= STRING031) Then
FAppend 2, STRING048, 1, 3
FPutLn 2, "******* WARNING !!!!!!!!!!!!!!!! *******"
FPutLn 2, " Only ", INTEGER003, " $", STRING042, " SIDS remaining ! "
FClose 2
FCreate 3, STRING060, 1, 3
FPutLn 3, ""
FPutLn 3, "@XON@@X0FTABS PPE would like to inform that there are only"
FPutLn 3, "@X0C", INTEGER003, " @X0E$ ", STRING042, "@X0F Subscription ID's remaining. Please call the TABS service"
FPutLn 3, "BBS at@X0B 1-407-722-3406@X0F and download more $", STRING042, " Subscription ID's"
FPutLn 3, ""
FClose 3
Message STRING016, STRING004, "TABS-PPE", "Warning", "R", 0, 0, 0, STRING060
Delete STRING060
Goto LABEL054
Endif
:LABEL054
If (STRING064 == "YES") Gosub LABEL058
If (STRING074 == "YES") Gosub LABEL061
Goto LABEL016
:LABEL055
FAppend 2, STRING048, 1, 3
Inc STRING033
FPutLn 2, " Entered an incorrect REGISTRATION NUMBER!"
FClose 2
Cls
PrintLn ""
PrintLn "@X0F You entered an @X8Eincorrect @X0FSubscription Number, Please try again @X8E!@X0F"
Newlines 2
If (STRING033 == STRING032) Then
Goto LABEL062
Else
Goto LABEL039
Endif
:LABEL056
FAppend 2, STRING048, 1, 3
FPutLn 2, "******* TABS PPE returned Errorlevel ", STRING021, " *******"
FPutLn 2, " Please check TABS.DOC for a description of the error"
FClose 2
Cls
PrintLn
PrintLn " The fuction that you just executed ended in @X0Cerror @X0Fand @X07"
PrintLn " @X0Fthe program returned Errorlevel @X0C", STRING021, "@X0F please@X07"
PrintLn "@X0F consult your TABS.DOC file for an explaination of this error !!!@X07"
Newlines 2
Wait
Goto LABEL016
:LABEL057
FAppend 2, STRING048, 1, 3
FPutLn 2, "******* TABS PPE returned Errorlevel ", STRING021, " *******"
FPutLn 2, " Please check TABS.DOC for a description of the error"
FClose 2
Cls
PrintLn
PrintLn "@X0F The validation process ended in an error !!!"
PrintLn "@X8C Please inform your Sysop @X8B!@X8A!@X89!@X8E!@X07"
Newlines 2
If (STRING016 == "NONE") Goto LABEL063
FCreate 1, STRING058, 1, 3
FPutLn 1, ""
FPutLn 1, "@XON@@X0FThis is just a message to let you know that:"
FPutLn 1, ""
FPutLn 1, "@X0E", U_Name(), "@X0F , attempted to donate to the BBS and TABS PPE exited"
FPutLn 1, "with@X8C Errorlevel ", STRING021, "@X0F - so their access rights were not"
FPutLn 1, "changed."
FPutLn 1, ""
FClose 1
Message STRING016, STRING004, "TABS-PPE", "TABS_Problem", "R", 0, 0, 0, STRING058
Delete STRING058
Wait
Goto LABEL063
:LABEL058
If (!Exist(STRING019 + STRING068)) FOpen 1, STRING019 + STRING068, 2, 3
FAppend 1, STRING019 + STRING068, 2, 3
FPutLn 1, "", U_Name()
FClose 1
If (Exist(STRING019 + STRING065)) Delete STRING019 + STRING065
FCreate 1, STRING019 + STRING065, 2, 3
FOpen 2, STRING019 + STRING068, 2, 3
FPutLn 1, "%" + STRING019 + +STRING066
FPutLn 1, ""
:LABEL059
STRING084 = ""
STRING085 = ""
STRING007 = ""
STRING013 = ""
STRING008 = ""
FGet 2, STRING007
Tokenize STRING007
STRING084 = GetToken()
STRING084 = Upper(Left(STRING084, 1)) + Lower(Right(STRING084, Len(STRING084) - 1))
STRING085 = GetToken()
STRING085 = Upper(Left(STRING085, 1)) + Lower(Right(STRING085, Len(STRING085) - 1))
STRING007 = STRING084 + " " + STRING085
STRING084 = ""
STRING085 = ""
FGet 2, STRING013
Tokenize STRING013
STRING084 = GetToken()
STRING084 = Upper(Left(STRING084, 1)) + Lower(Right(STRING084, Len(STRING084) - 1))
STRING085 = GetToken()
STRING085 = Upper(Left(STRING085, 1)) + Lower(Right(STRING085, Len(STRING085) - 1))
STRING013 = STRING084 + " " + STRING085
STRING084 = ""
STRING085 = ""
FGet 2, STRING008
Tokenize STRING008
STRING084 = GetToken()
STRING084 = Upper(Left(STRING084, 1)) + Lower(Right(STRING084, Len(STRING084) - 1))
STRING085 = GetToken()
STRING085 = Upper(Left(STRING085, 1)) + Lower(Right(STRING085, Len(STRING085) - 1))
STRING008 = STRING084 + " " + STRING085
FPutPad 1, " " + STRING007, -32
FPutPad 1, STRING013, -25
FPutPad 1, STRING008, -22
FPutLn 1, ""
If (Ferr(2)) Goto LABEL060
Goto LABEL059
:LABEL060
FPutLn 1, ""
FPutLn 1, "%" + STRING019 + +STRING067
FClose 1
FClose 2
Return
:LABEL061
TSTRING062(0) = "NAME,C,25,0"
TSTRING062(1) = "EXPIRATION,D,8,0"
TSTRING062(2) = "SECURITY,N,3,0"
TSTRING062(3) = "EXPSEC,N,3,0"
TSTRING062(4) = "CREDITBAL,N,12,0"
TSTRING062(5) = "ZEROBALLVL,N,3,0"
TSTRING062(6) = "ADRINFO0,C,50,0"
TSTRING062(7) = "ADRINFO1,C,50,0"
TSTRING062(8) = "ADRINFO2,C,25,0"
TSTRING062(9) = "ADRINFO3,C,10,0"
TSTRING062(10) = "ADRINFO4,N,10,0"
TSTRING062(11) = "ADRINFO5,C,15,0"
TSTRING062(12) = "VCNUMBER,N,13,0"
TSTRING062(13) = "DATNUMBER,N,13,0"
TSTRING062(14) = "SIDUSED,N,7,0"
TSTRING062(15) = "DATEUSED,D,8,0"
TSTRING062(16) = "TIMEUSED,C,5,0"
TSTRING062(17) = "NOTES,M,50,0"
If (Exist(STRING019 + STRING075)) Then
DOpen 5, STRING019 + STRING075, 0
Else
DCreate 5, STRING019 + STRING075, 0, TSTRING062(BOOLEAN000)
DOpen 5, STRING019 + STRING075, 0
Endif
GetUser
DNew 5
DPut 5, "NAME", "" + U_Name()
001 = U_ExpDate
DPut 5, "EXPIRATION", String(001)
DPut 5, "SECURITY", "" + U_Sec
DPut 5, "EXPSEC", "" + U_ExpSec
If (Psa(7) == 1) Then
DPut 5, "CREDITBAL", "" + PCBAccStat(4)
DPut 5, "ZEROBALLVL", "" + Account(17)
Endif
If (Psa(3) == 1) Then
DPut 5, "ADRINFO0", "" + U_Addr(0)
DPut 5, "ADRINFO1", "" + U_Addr(1)
DPut 5, "ADRINFO2", "" + U_Addr(2)
DPut 5, "ADRINFO3", "" + U_Addr(3)
DPut 5, "ADRINFO4", "" + U_Addr(4)
DPut 5, "ADRINFO5", "" + U_Addr(5)
Endif
DPut 5, "VCNUMBER", "" + U_HVPhone
DPut 5, "DATNUMBER", "" + U_BDPhone
DPut 5, "SIDUSED", "" + STRING022
002 = Date()
DPut 5, "DATEUSED", String(002)
DPut 5, "TIMEUSED", "" + String(Time())
DPut 5, "NOTES", ""
DAdd 5
PutUser
DClose 5
Return
:LABEL062
FAppend 2, STRING048, 1, 3
FPutLn 2, " USER FAILED ", STRING033, " times trying to enter SID"
FClose 2
Cls
Newlines 2
PrintLn " @X0F You have entered an invalid SID @X0E", STRING033, "@X0F times"
PrintLn ""
PrintLn " Please contact your @X0ESysOp @X0Ffor assistance @X8B!@X8A!@X89!@X8E!@X07"
Newlines 2
If (STRING016 == "NONE") Then
Delay 126
Else
FCreate 1, STRING061, 1, 3
FPutLn 1, ""
FPutLn 1, "@XON@@X0FThis is just a message to let you know that:"
FPutLn 1, ""
FPutLn 1, "@X0E", U_Name(), "@X0F , attempted to donate to the BBS and was unable to"
FPutLn 1, "@X0Fenter a correct SID within the ", STRING033, " attempts configured."
FPutLn 1, ""
FClose 1
Message STRING016, STRING004, "TABS-PPE", "SID_MISSES", "R", 0, 0, 0, STRING061
Delete STRING061
Delay 126
Endif
Endif
:LABEL063
If (STRING053 == "YES") Then
Cls
PrintLn "@X0FTABS-PPE @X0Ewritten by: @X0BRay Sulich "
Newlines 4
PrintLn "@BEEP@@BEEP@@BEEP@"
PrintLn ""
PrintLn "@X0C This Copy of TABS-PPE Version ", STRING037, " is Registered to"
PrintLn ""
Forward (80 - Len(STRING052)) / 2
Print "@X0E", STRING052
Newlines 8
Delay 45
Else
Cls
PrintLn "@X0FTABS-PPE @X0Ewritten by: @X0BRay Sulich"
Newlines 4
PrintLn "@BEEP@@BEEP@@BEEP@@BEEP@@BEEP@"
Newlines 2
PrintLn "@X0C Unregistered Copy of TABS-PPE Version ", STRING037
Newlines 2
PrintLn "@X0E Please help your Sysop Register ME !!"
Newlines 4
PrintLn "@X07 "
Delay 126
Endif
FAppend 2, STRING048, 1, 3
FPutLn 2, "---- ", U_Name(), " Exited PPE on ", String(Date()), " at ", String(Time()), " ----"
FPutLn 2, ""
PutUser
If (Exist(STRING058)) Delete STRING058
If (Exist(STRING060)) Delete STRING060
If (Exist(STRING061)) Delete STRING061
FCloseAll
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 2 End
; 24 Cls
; 8 Wait
; 204 Goto
; 168 Let
; 8 Print
; 131 PrintLn
; 163 If
; 1 ConfFlag
; 5 DispFile
; 8 FCreate
; 9 FOpen
; 12 FAppend
; 40 FClose
; 49 FGet
; 73 FPutLn
; 3 FPutPad
; 2 GetUser
; 6 PutUser
; 12 Delete
; 13 InputStr
; 2 Gosub
; 2 Return
; 6 Delay
; 7 Inc
; 35 Newlines
; 5 Tokenize
; 15 GetToken
; 4 AnsiPos
; 1 Forward
; 4 Message
; 2 Rename
; 2 Frewind
; 1 Append
; 4 Download
; 1 SearchInit
; 1 SearchFind
; 1 SearchStop
; 1 FCloseAll
; 1 DCreate
; 2 DOpen
; 1 DClose
; 1 DNew
; 1 DAdd
; 18 DPut
; 4 Account
;
;
; ■ Functions used :
;
; 2 +
; 3 -
; 1 *
; 1 /
; 4 %
; 156 +
; 11 -
; 105 ==
; 15 <>
; 8 <
; 3 <=
; 9 >
; 4 >=
; 66 !
; 3 &&
; 1 ||
; 26 Len(
; 6 Lower()
; 23 Upper()
; 2 Mid()
; 6 Left()
; 6 Right()
; 12 Ferr()
; 1 Chr()
; 1 Asc()
; 9 Date()
; 4 Time()
; 12 U_Name()
; 2 NoChar()
; 3 YesChar()
; 15 String()
; 1 Mask_File()
; 1 PPEPath()
; 5 PcbNode()
; 14 CurSec()
; 8 GetToken()
; 10 Exist()
; 3 GetX()
; 3 GetY()
; 9 Psa()
; 16 TokCount()
; 10 PCBAccStat()
; 5 Account()
;
;------------------------------------------------------------------------------
;
; Analysis flags : FW
;
; F - Change conference flags status ■ 2
; This may be normal for a SELECT replacement but it may also be
; a way to get access to conferences a user is not allowed to.
; ■ Search for : CONFFLAG, CONFUNFLAG
;
; W - Write user ■ 5
; Program writes a user record. Although this may be normal for a
; User Editor, it may also be a way to modify an account level.
; ■ Search for : PUTUSER
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 1 For/Next
; 1 While/EndWhile
; 56 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------